home *** CD-ROM | disk | FTP | other *** search
/ Oxygen Multimedia Graphics 22 / Oxygen Multimedia Graphics 22.iso / pc / System / OX22 / PDC_159_OpenPPT_CT4.ls < prev    next >
Encoding:
Text File  |  2008-03-12  |  777 b   |  21 lines
  1. property templateName, template, getColor, fulltName, PPTFile
  2. global ds, goUp, gList, giNum, gtNum, gtColor
  3.  
  4. on enterFrame
  5.   templateName = "t" & gtNum
  6.   template = getAt(gList, templateName)
  7.   getColor = templateName & "c" & gtColor
  8.   tColor = getAt(gList, getColor)
  9.   fulltName = template & tColor
  10.   PPTFile = the moviePath & goUp & "Blank Template Themes" & ds & fulltName & ds & fulltName & ".pot"
  11. end
  12.  
  13. on mouseUp
  14.   OpenIt = baOpenFile(PPTFile, EMPTY)
  15.   if OpenIt > 32 then
  16.     nothing()
  17.   else
  18.     alert("The software required to open the PowerPoint file could not be found. If you don't have PowerPoint, a PowerPoint Viewer is available on this disc in the Extras>Software folder. Or, the file may not open if you aren't running this menu from the CD-ROM.")
  19.   end if
  20. end
  21.